<script>-- find per carattere speficicoon mouseUpGlobal SEARCHCRITERIAask "Which word do you want to search?"if the result is "Cancel"thenexit mouseUpelseput it into PAROLAend iflock screengo to cd "Inizio"repeat foreverif the optionKey is downthen exit repeatfind SEARCHCRITERIA PAROLA in fld 2if the number of this cd is item 1 of CONTROLthengo to cd 2if the length of TEMP < 25000thenput "Quotes about " & PAROLA & " from QuotesBase stack" & return & return before TEMPput TEMP into cd fld 1elsepathput the result into PATHFILEopen file PATHFILE & PAROLAwrite TEMP to file PATHFILE & PAROLAclose file PATHFILE & PAROLAend ifput empty into TEMPput empty into CONTROLexit repeatend ifput word 2 of the foundLine into FINDONEif char 1 of line FINDONE of fld 2 is numToChar(255)then delete char 1 of line FINDONE of fld 2put line FINDONE to (FINDONE + 1) of fld 2 & return & return & return after TEMPput the number of this cd & "," after CONTROLend repeatend mouseUp-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,297,297,50-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,575,575,50-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,0,0,50</script>
</part>
<part>
<id>24</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>378</left>
<top>176</top>
<right>512</right>
<bottom>194</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Nova Roma</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<name>By Author</name>
<script>-- find per carattere speficicoon mouseUpGlobal SEARCHCRITERIA, AUTHORFINDask "Which author do you want to search for?" with AUTHORFINDif the result is "Cancel"thenexit mouseUpelseput it into AUTOREend iflock screengo to cd "Inizio"repeat foreverif the optionKey is downthen exit repeatfind SEARCHCRITERIA AUTORE in fld 2if the number of this cd is item 1 of CONTROLthengo to cd 2if the length of TEMP < 25000thenput "Quotes by " & AUTORE & " from QuotesBase stack" & return & return before TEMPput TEMP into cd fld 1elsepathput the result into PATHFILEopen file PATHFILE & AUTHORFINDwrite TEMP to file PATHFILE & AUTHORFINDclose file PATHFILE & AUTHORFINDend ifput empty into TEMPput empty into CONTROLexit repeatend ifput word 2 of the foundLine into FINDONEif char 1 of line (FINDONE - 1) of fld 2 is numToChar(255)then delete char 1 of line (FINDONE - 1) of fld 2put line (FINDONE - 1) to FINDONE of fld 2 & return & return & return after TEMPput the number of this cd & "," after CONTROLend repeatend mouseUp-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,557,557,50</script>
</part>
<part>
<id>28</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>378</left>
<top>144</top>
<right>512</right>
<bottom>161</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Nova Roma</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<textStyle>bold</textStyle>
<name>By Random</name>
<script>on mouseUplock screenput number(cds of this bg) into TEMPgo to cd random(TEMP)if the number of this cd <= 4then go to cd 5unlock screen with dissolve to cdset the itemDelimiter to numToChar (255)select item random(number(items of fld 2)) of fld 2end mouseUp-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,38,38,50</script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>378</left>
<top>97</top>
<right>512</right>
<bottom>116</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Nova Roma</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<name>Preferences</name>
<script>on mouseUpset the visible of bg btn "Type of Find" to not the visible of bg btn "Type Of Find"set the visible of bg fld "SearchUNO" to not the visible of bg fld "SearchUNO"set the visible of bg btn "Open Stack" to not the visible of bg btn "Open Stack"set the visible of bg fld "Intro" to not the visible of bg fld "Intro"end mouseUp-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,46,46,50</script>
<script>on mouseUpset the visible of fld "Help" to not the visible of fld "Help"end mouseUp-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,74,74,50</script>
</part>
<part>
<id>55</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>324</top>
<right>76</right>
<bottom>342</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Monaco</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>Prova</name>
<script>on mouseUplock screenrepeat (number(cds of this bg) -4)put the number of this cdif fld 1 contains returnthenexit mouseUpelsego nextend ifend repeatend mouseUp-- per vedere la lunghezza itemslock screenopen file "Paolo:testo"set the itemDelimiter to numtochar(255)repeat (number(cds of this bg) -4)put the number of this cdrepeat with k = 1 to number(items of fld 2)put fld 1 & tab & the length of item k of fld 2 & tab & k & return after PAOLOend repeatwrite PAOLO to file "Paolo:testo"put "" into PAOLOgo nextend repeatwrite PAOLO to file "Paolo:testo"close file "Paolo:testo"-- verifica che non ci siano citazioni con piu' di 5 righelock screenset the itemDelimiter to numtochar(255)repeat 1777put the number of this cdrepeat with k = 1 to number(items of fld 2)if number(lines of item k of fld 2) > 5thenexit mouseUpelsenext repeatend ifend repeatgo nextend repeat-- per verifica struttura campi con citazionilock screenput numtochar(255) into ELEMrepeat 5put the number of this cdif last char of fld 2 is ELEMthengo nextelseexit mouseUpend ifend repeat-- per avere numero items della stacklock screenput 0 into ALAMOset the itemDelimiter to numtochar(255)repeat 1777put the number of this cdadd the number of items of fld 2 to ALAMOgo nextend repeatput ALAMOdomenu Compact Stack-- per esportare frasi per argomenti pronte per QuotesBaselock screenset the itemDelimiter to numtochar(255)open file "Paolo:EXP"repeat with k = 1 to 1772put krepeat with i = 1 to number(items of fld 2)put fld 1 & "‚àÇ" & item i of fld 2 & "Δí" after ELEMOend repeatif k mod 100 is zerothenwrite ELEMO to file "Paolo:EXP"put empty into ELEMOend ifgo nextend repeatwrite ELEMO to file "Paolo:EXP"close file "Paolo:EXP"doMenu "Compact Stack"-- indice argomentilock screenopen file "PaoloUNO:ARGOM"repeat with k = 1 to 1807put kput fld 1 & return after OLOAPgo nextif k mod 100 is 0thenwrite OLOAP to file "PaoloUNO:ARGOM"put "" into OLOAPend ifend repeatwrite OLOAP to file "PaoloUNO:ARGOM"close file "PaoloUNO:ARGOM"-- per esportare frasi --> Quote‚àÜlock screenset the itemDelimiter to numtochar(255)open file "PaoloUNO:EXP"repeat with k = 1 to 1790put krepeat with i = 1 to number(items of fld 2)put fld 1 & "‚àÇ" & item i of fld 2 & "Δí" after ELEMOend repeatif k mod 100 is zerothenwrite ELEMO to file "PaoloUNO:EXP"put empty into ELEMOend ifgo nextend repeatwrite ELEMO to file "PaoloUNO:EXP"close file "PaoloUNO:EXP"-- doMenu "Compact Stack"lock screenopen file "PaoloUNO:AUTORI"repeat with k = 1 to 1790put krepeat with i = 1 to number of lines of fld 2if char 1 of line i of fld 2 is "‚Äî"thenput line i of fld 2 & return after OLOAPelsenext repeatend ifend repeatgo nextif k mod 100 is 0thenwrite OLOAP to file "PaoloUNO:AUTORI"put "" into OLOAPend ifend repeatwrite OLOAP to file "PaoloUNO:AUTORI"close file "PaoloUNO:AUTORI"-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,18,18,50-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,92,92,50</script>
<script>on mousedownglobal VIEWQUOTEif line 1 of me = "Don't Show A Quote" thenput "Show A Quote" into line 1 of meput "True" into VIEWQUOTEelseput "Don't Show A Quote" into line 1 of meput "False" into VIEWQUOTEend ifend mousedown-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,72,72,50</script>
</part>
<part>
<id>63</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>378</left>
<top>50</top>
<right>512</right>
<bottom>67</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Nova Roma</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<textHeight>16</textHeight>
<name>SearchUNO</name>
<script>on mousedownglobal SEARCHCRITERIAif line 1 of me = "Word" thenput "Whole" into line 1 of meput "Whole" into SEARCHCRITERIAelseput "Word" into line 1 of meput "Word" into SEARCHCRITERIAend ifend mousedown-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,238,238,50</script>
</part>
<part>
<id>65</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>378</left>
<top>128</top>
<right>512</right>
<bottom>145</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Nova Roma</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>SearchUNO</name>
<script>on mousedownset the visible of bg btn 1 to not visible of bg btn 1set the visible of bg btn 2 to not visible of bg btn 2set the visible of bg btn 3 to not visible of bg btn 3end mousedown-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,162,162,50</script>
</part>
<content>
<layer>background</layer>
<id>60</id>
<text><span class="style14">YPE OF FINDThe default is "find string", you can choose between "find word" and "find whole" for search by Category or by Author.OPEN STACKAt every start-up you can see a random quotation .TYPES OF SEARCHThe search buttons will search every quotes that contains the word you typed (or the author) and will show you the result in a field (if the length of found quotations is not higher than 25.000 characters), otherwise you'll find your quotes in a text file in the same folder of "QuotesBase".GO TO SEARCH CARDS.Here you'll find some field with all categories and author of quotes listed in this stack. </span></text>
</content>
<content>
<layer>background</layer>
<id>65</id>
<text>Search a Quote</text>
</content>
<name>Quote</name>
<script>on FieldUpglobal AUTHORFINDget the clickLineselect itdo "get" && itif (it = empty) thenresetexit FieldUpend ifset cursor to 4get char 1 to 32 of itlock screenset the itemDelimiter to numToChar(255)put item 1 of it after itdelete item 1 of itfind string itput it into AUTHORFINDunlock screen with visual effect scroll left fastput "find string " & quote & it & quoteend FieldUpon FieldUpTwoglobal AUTHORFINDget the clickLineselect itdo "get" && itif (it = empty) thenresetexit FieldUpTwoend ifset cursor to 4get char 1 to 32 of itlock screengo to cd itend FieldUpTwoon pathput the short name of this stack into AAput word 2 of the long name of this stack into BBdelete char 1 of BBdelete last char of BBput offset(AA,BB) into NUMEROCARget char 1 to NUMEROCAR of BBreturn iton FieldUpget the clickLineselect itdo "get" && itif (it = empty) thenresetexit FieldUpend ifset cursor to 4get char 1 to 32 of itlock screenset the itemDelimiter to numToChar(255)put item 1 of it after itdelete item 1 of itfind string itunlock screen with visual effect scroll left fastput "find string " & quote & it & quoteend FieldUpend path-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,390,390,50-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,329,329,50-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,648,648,50-- ScriptEdit‚Ñ¢ Prefs:Monaco,9,47,24,472,600,572,572,50</script>
 (January 1993).iso/Files/Hyper/Q-R/QuotesBase.cpt/QuotesBase/BMAP_3719.png){kind=link}